home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / disk / bakup / mrbk220.lha / Rexx / format.mrbk < prev    next >
Text File  |  1991-01-12  |  1KB  |  70 lines
  1. /* format.mrbk */
  2.  
  3. /* This ARexx script adjusts MRBackup's formatting option setting. */
  4.  
  5. signal on ERROR
  6. signal on BREAK_C
  7.  
  8. options results
  9.  
  10. if ~(Show('P', 'MRBackup_#1')) then do
  11.     say "You must run MRBackup first. With a little work, you could"
  12.     say "get this ARexx script to do it for you."
  13.     exit 1
  14. end
  15.  
  16. address "MRBackup_#1"
  17.  
  18. poptofront
  19.  
  20. getformatting
  21. say "Current formatting option: " || result
  22.  
  23. say "Setting formatting to None"
  24. setformatting "None"
  25. getformatting
  26. if result ~= "None" then do
  27.     say "setformatting None failed; rc = " || rc
  28.     exit rc
  29. end
  30. call Delay(50)
  31.  
  32. say "Setting formatting to Normal"
  33.  
  34. setformatting "Normal"
  35. getformatting
  36. if result ~= "Normal" then do
  37.     say "setformatting Normal failed; rc = " || rc
  38.     exit rc
  39. end
  40. call Delay(50)
  41.  
  42. say "Setting formatting to Quick"
  43. setformatting "Quick"
  44. getformatting
  45. if result ~= "Quick" then do
  46.     say "setformatting Quick failed; rc = " || rc
  47.     exit rc
  48. end
  49.  
  50.  
  51. exit 0
  52.  
  53.  
  54. /*------------------------------------------------------------------*/
  55.  
  56. break_c:
  57.  
  58. say "*** Control-C recieved.  Stopped by user. ***"
  59. exit 5
  60.  
  61. /*------------------------------------------------------------------*/
  62.  
  63. error:
  64.  
  65. say "Error"
  66. exit 6
  67.  
  68. /*------------------------------------------------------------------*/
  69.  
  70.